(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 279401, 7478] NotebookOptionsPosition[ 271492, 7206] NotebookOutlinePosition[ 271836, 7221] CellTagsIndexPosition[ 271793, 7218] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["\:0412\:044b\:0432\:043e\:0434 \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439 \:0434\:0432\:0438\ \:0436\:0435\:043d\:0438\:044f \:041b\:0410 \:0442\:0438\:043f\:0430 \"\:0441\ \:0430\:043c\:043e\:043b\:0435\:0442\"\n", FontSize->36, FontWeight->"Bold"], StyleBox["\:0414\:043e\:043f\:0443\:0449\:0435\:043d\:0438\:044f:\n1) \:041a\ \:043e\:043d\:0441\:0442\:0440\:0443\:043a\:0446\:0438\:044f \:041b\:0410 \ \:0430\:0431\:0441\:043e\:043b\:044e\:0442\:043d\:043e \:0436\:0435\:0441\ \:0442\:043a\:0430\:044f (\:041b\:0410 - \:0442\:0432\:0435\:0440\:0434\:043e\ \:0435 \:0442\:0435\:043b\:043e);\n2) \:0410\:0442\:043c\:043e\:0441\:0444\ \:0435\:0440\:0430 \:0441\:043f\:043e\:043a\:043e\:0439\:043d\:0430\:044f \ (W=0 - \:0441\:043a\:043e\:0440\:043e\:0441\:0442\:044c \:0432\:0435\:0442\ \:0440\:0430);\n3) \:041c\:0430\:0441\:0441\:0430 \:041b\:0410 \:043f\:043e\ \:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f \:0442.\:043a. \:0437\:0430\ \:0434\:0430\:043d\:043d\:043e\:0435 \:0432\:0440\:0435\:043c\:044f \:043f\ \:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0445 \:043f\:0440\:043e\ \:0446\:0435\:0441\:0441\:043e\:0432 \:043c\:0435\:043d\:044c\:0448\:0435 60 \ \:0441;\n4) \:0417\:0435\:043c\:043b\:044f \:043f\:043b\:043e\:0441\:043a\ \:0430\:044f \:0438 \:043d\:0435 \:0432\:0440\:0430\:0449\:0430\:0435\:0442\ \:0441\:044f;\n5) \:0423\:0433\:043e\:043b \:0442\:0430\:043d\:0433\:0430\ \:0436\:0430 \:043d\:0435 \:0440\:0430\:0432\:0435\:043d +/-90 \:0433\:0440\ \:0430\:0434\:0443\:0441\:043e\:0432;\n6) \ \:0421\:043f\:0430\:0440\:0432\:0435\:0434\:043b\:0438\:0432\:0430 \:0433\ \:0438\:043f\:043e\:0442\:0435\:0437\:0430 \:0441\:0442\:0430\:0446\:0438\ \:043e\:043d\:0430\:0440\:043d\:043e\:0441\:0442\:0438 (\:0441\:043e\:0433\ \:043b\:0430\:0441\:043d\:043e \:044d\:0442\:043e\:0439 \:0433\:0438\:043f\ \:043e\:0442\:0435\:0437\:0435, \:0430\:044d\:0440\:043e\:0434\:0438\:043d\ \:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0430\:044f \:0441\:0438\:043b\ \:0430 \:0438 \:0430\:044d\:0440\:043e\:0434\:0438\:043d\:043e\:043c\:0438\ \:0447\:0435\:0441\:043a\:0438\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \ \:0432 \:043d\:0435\:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\ \:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\ \:0435\:0442\:0430 \:043f\:043e\:043b\:043d\:043e\:0441\:0442\:044c\:044e \ \:043e\:043f\:0440\:0435\:0434\:0435\:043b\:044f\:044e\:0442\:0441\:044f \ \:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0430\:043c\:0438 \:043f\:0430\ \:0440\:0430\:043c\:0435\:0442\:0440\:043e\:0432 \:0432 \:0434\:0430\:043d\ \:043d\:044b\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \:0432\:0440\:0435\ \:043c\:0435\:043d\:0438).", FontSize->18, FontWeight->"Bold"], StyleBox["\n\:0421\:0438\:0441\:0442\:0435\:043c\:044b \:043a\:043e\:043e\ \:0440\:0434\:0438\:043d\:0430\:0442 \:0438 \:043c\:0430\:0442\:0440\:0438\ \:0446\:044b \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", FontSize->36, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.4964223859290233`*^9, 3.496422441451199*^9}, { 3.496422514102354*^9, 3.4964225156204414`*^9}, {3.496422556601785*^9, 3.496422568910489*^9}, {3.4964270720950565`*^9, 3.496427248697158*^9}, { 3.496427412645535*^9, 3.4964274323866644`*^9}, {3.4964275151103954`*^9, 3.4964275223358088`*^9}, {3.4964276114889083`*^9, 3.4964276119689355`*^9}, {3.4964277249904003`*^9, 3.49642782096789*^9}, { 3.496428617357441*^9, 3.4964286488232403`*^9}, {3.4964289789451222`*^9, 3.496429013386092*^9}, 3.49642958138958*^9, {3.4975856138554587`*^9, 3.497585636163498*^9}, 3.497588524348574*^9, 3.497591868033391*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:043d\:0430\:043a\:043b\:043e\:043d\:0430", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:0438\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975855745277896`*^9, 3.497585575338991*^9}, 3.4975856759903708`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975856946948037`*^9, 3.4975890427197924`*^9, 3.4975890742295947`*^9, 3.4975941811926966`*^9, 3.4975945683028383`*^9, 3.4975949420762167`*^9, 3.4975962260166535`*^9, 3.4975965081917934`*^9, 3.4975983711713495`*^9, 3.4975991402813396`*^9, 3.4975993453310685`*^9, 3.497599491215412*^9, 3.4975996609771223`*^9, 3.497599930066513*^9, 3.497629367952831*^9, 3.497635853847803*^9, 3.4976368447774806`*^9, 3.497637744910965*^9, 3.4976392027803507`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:043f\:0443\:0442\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975857196704473`*^9, 3.497585725052457*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975857283284626`*^9, 3.497589042797797*^9, 3.4975890742945986`*^9, 3.4975941812496996`*^9, 3.4975945683508406`*^9, 3.49759494214022*^9, 3.4975962260716567`*^9, 3.4975965082697973`*^9, 3.4975983712423534`*^9, 3.4975991403503437`*^9, 3.4975993454110727`*^9, 3.497599491296417*^9, 3.4975996611181307`*^9, 3.497599930131517*^9, 3.4976293679838324`*^9, 3.4976358539358077`*^9, 3.4976368448434844`*^9, 3.4976377449899697`*^9, 3.4976392028463545`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M", "=", RowBox[{"M2", ".", "M1"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.497585747329296*^9, 3.4975857579529147`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}, { RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], "0"}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.49758576104172*^9, 3.4975890428197985`*^9, 3.4975890743266*^9, 3.497594181274701*^9, 3.497594568370842*^9, 3.497594942174222*^9, 3.4975962260966587`*^9, 3.4975965083118*^9, 3.4975983712753553`*^9, 3.497599140383346*^9, 3.497599345454075*^9, 3.4975994913394194`*^9, 3.497599661152132*^9, 3.497599930237523*^9, 3.497629367999833*^9, 3.49763585397681*^9, 3.497636844877486*^9, 3.4976377450329723`*^9, 3.4976392028793564`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"ReplaceAll", "[", RowBox[{"M", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"BPsi", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Bteta", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430", " ", "\:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:043e\:0439\ ", " ", "\:043d\:0443\:043b\:0435\:0432\:044b\:0445", " ", "\:0443\:0433\:043b\:043e\:0432", " ", RowBox[{ "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:043e\:0432", ".", " ", "\:0414\:043e\:043b\:0436\:043d\:0430"}], " ", "\:043f\:043e\:043b\:0443\:0447\:0438\:0442\:044c\:0441\:044f", " ", "\:0435\:0434\:0438\:043d\:0438\:0447\:043d\:0430\:044f", " ", "\:043c\:0430\:0442\:0440\:0438\:0446\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585808185003*^9, 3.4975858125530105`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497585814097413*^9, 3.4975890428417997`*^9, 3.497589074478609*^9, 3.4975941812997026`*^9, 3.497594568394843*^9, 3.497594942326231*^9, 3.4975962261216593`*^9, 3.4975965084908104`*^9, 3.4975983714273643`*^9, 3.497599140541355*^9, 3.497599345606084*^9, 3.4975994914914284`*^9, 3.4975996613071413`*^9, 3.4975999304025326`*^9, 3.4976293680168343`*^9, 3.4976358541228185`*^9, 3.497636845021495*^9, 3.4976377451779804`*^9, 3.4976392030193644`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585868011108*^9, 3.4975858690095096`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975858740795183`*^9, 3.497589042865801*^9, 3.497589074549613*^9, 3.497594181324704*^9, 3.4975945684158444`*^9, 3.4975949423962345`*^9, 3.497596226148661*^9, 3.4975965085938163`*^9, 3.4975983715773726`*^9, 3.4975991406103587`*^9, 3.4975993456760883`*^9, 3.497599491560432*^9, 3.497599661375145*^9, 3.4975999304735365`*^9, 3.4976293680338354`*^9, 3.4976358541908226`*^9, 3.4976368450904984`*^9, 3.497637745247985*^9, 3.497639203087368*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975858784163265`*^9, 3.497585902362368*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497585904483972*^9, 3.497589042886802*^9, 3.497589074580615*^9, 3.4975941813467054`*^9, 3.4975945684398456`*^9, 3.4975949424272366`*^9, 3.4975962261746626`*^9, 3.497596508624818*^9, 3.497598371607374*^9, 3.4975991406413608`*^9, 3.4975993457060895`*^9, 3.497599491591434*^9, 3.497599661406147*^9, 3.4975999305045385`*^9, 3.4976293680518365`*^9, 3.4976358542248244`*^9, 3.4976368451225004`*^9, 3.4976377452789865`*^9, 3.49763920311637*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:043a\:0440\:0435\:043d\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585920864001*^9, 3.4975859218312025`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}, {"0", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975859234224052`*^9, 3.497589042906803*^9, 3.4975890746096163`*^9, 3.4975941813707066`*^9, 3.497594568460847*^9, 3.497594942459238*^9, 3.4975962262016644`*^9, 3.4975965086548195`*^9, 3.4975983716373763`*^9, 3.4975991406733627`*^9, 3.4975993457370915`*^9, 3.4975994916214356`*^9, 3.497599661437148*^9, 3.49759993053454*^9, 3.4976293680698376`*^9, 3.497635854255826*^9, 3.497636845152502*^9, 3.497637745308988*^9, 3.4976392031473713`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM", "=", RowBox[{"MM1", ".", "MM2", ".", "MM3"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585956276063*^9, 3.497585957477265*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}]}, { RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497586054426236*^9, 3.4975890429288044`*^9, 3.4975890746406183`*^9, 3.497594181395708*^9, 3.4975945684858484`*^9, 3.4975949424922404`*^9, 3.4975962262266655`*^9, 3.497596508686822*^9, 3.497598371671378*^9, 3.4975991407063646`*^9, 3.4975993457700934`*^9, 3.4975994916534376`*^9, 3.49759966146815*^9, 3.497599930567542*^9, 3.4976293680848384`*^9, 3.497635854286828*^9, 3.497636845185504*^9, 3.49763774534299*^9, 3.4976392031823735`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SM1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:0430\:0442\:0430\:043a\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975860746594715`*^9, 3.497586076203874*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975860854390907`*^9, 3.4975890429498057`*^9, 3.49758907467362*^9, 3.4975941814227095`*^9, 3.4975945685068493`*^9, 3.4975949425272427`*^9, 3.4975962262526674`*^9, 3.4975965087188234`*^9, 3.49759837170438*^9, 3.497599140738366*^9, 3.497599345803095*^9, 3.497599491684439*^9, 3.497599661499152*^9, 3.497599930602544*^9, 3.497629368101839*^9, 3.4976358543188295`*^9, 3.497636845218506*^9, 3.497637745375992*^9, 3.4976392032143755`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SM2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:043d\:0430", " ", "\:0443\:0433\:043e\:043b", " ", "\:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497586102879921*^9, 3.497586103893923*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975861054227257`*^9, 3.497589042970807*^9, 3.4975890747056217`*^9, 3.497594181445711*^9, 3.497594568529851*^9, 3.4975949425632443`*^9, 3.4975962262806687`*^9, 3.4975965087518253`*^9, 3.4975983717383823`*^9, 3.497599140771368*^9, 3.497599345834097*^9, 3.4975994917194414`*^9, 3.497599661533154*^9, 3.497599930637546*^9, 3.4976293681178403`*^9, 3.4976358543518314`*^9, 3.497636845249508*^9, 3.4976377454079933`*^9, 3.4976392032473774`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SM", "=", RowBox[{"Transpose", "[", RowBox[{"SM2", ".", "SM1"}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:043a", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975861303983693`*^9, 3.4975861317399716`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}]}, { RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], "0", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975861356399784`*^9, 3.4975890429928083`*^9, 3.497589074737624*^9, 3.4975941814687123`*^9, 3.497594568551852*^9, 3.4975949426002464`*^9, 3.4975962263046703`*^9, 3.497596508782827*^9, 3.4975983717713842`*^9, 3.49759914080337*^9, 3.497599345867099*^9, 3.4975994917524433`*^9, 3.497599661565156*^9, 3.497599930671548*^9, 3.4976293681358414`*^9, 3.4976358543828335`*^9, 3.4976368452815094`*^9, 3.4976377454409957`*^9, 3.497639203279379*^9}] }, Open ]], Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\ \:0438\:044f \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\ \:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\ \:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.4975865797415586`*^9, 3.4975865934071827`*^9}, 3.4975885334901905`*^9, 3.4975918722576327`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}], ",", RowBox[{"dZ", "[", "t", "]"}]}], "}"}], RowBox[{"(*", RowBox[{ RowBox[{ "\:0420\:0430\:0434\:0438\:0443\:0441", " ", "\:0432\:0435\:043a\:0442\:043e\:0440", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410"}], ",", " ", RowBox[{ RowBox[{"L", "[", "t", "]"}], " ", "-", " ", RowBox[{ "\:0434\:0430\:043b\:044c\:043d\:043e\:0441\:0442\:044c", " ", "\:043f\:043e\:043b\:0435\:0442\:0430"}]}], ",", " ", RowBox[{ RowBox[{"H", "[", "t", "]"}], " ", "-", " ", RowBox[{ "\:0432\:044b\:0441\:043e\:0442\:0430", " ", "\:043f\:043e\:043b\:0435\:0442\:0430"}]}], ",", " ", RowBox[{ RowBox[{"dZ", "[", "t", "]"}], " ", "-", " ", RowBox[{ "\:0431\:043e\:043a\:043e\:0432\:043e\:0435", " ", "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0435"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975865978531904`*^9, 3.497586611596814*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"L", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}], ",", RowBox[{"dZ", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4975866157308216`*^9, 3.4975890430518117`*^9, 3.497589074809628*^9, 3.4975941814937134`*^9, 3.497594568572853*^9, 3.4975949426742506`*^9, 3.4975962263306713`*^9, 3.497596508854831*^9, 3.497598371843388*^9, 3.497599140877374*^9, 3.497599345941103*^9, 3.497599491825447*^9, 3.4975996616351595`*^9, 3.4975999307445517`*^9, 3.4976293681878443`*^9, 3.4976358544568377`*^9, 3.4976368453535137`*^9, 3.497637745514*^9, 3.4976392033503833`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vg", "=", RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", RowBox[{"vdy", "[", "t", "]"}], ",", RowBox[{"vgz", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0437\:0435\:043c\:043d\:043e\:0439", " ", "\:0441\:043e\:043a\:0440\:043e\:0441\:0442\:0438", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410", " ", "\:0432", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497586627290442*^9, 3.497586639052863*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", RowBox[{"vdy", "[", "t", "]"}], ",", RowBox[{"vgz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4975866407688656`*^9, 3.497589043076813*^9, 3.49758907501964*^9, 3.497594181518715*^9, 3.4975945685958548`*^9, 3.497594942887263*^9, 3.497596226358673*^9, 3.4975965090678434`*^9, 3.4975983720584*^9, 3.4975991410923862`*^9, 3.4975993461531153`*^9, 3.4975994920414596`*^9, 3.4975996618461723`*^9, 3.497599930956564*^9, 3.4976293682328467`*^9, 3.49763585467085*^9, 3.49763684563753*^9, 3.497637745766014*^9, 3.4976392035583954`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"R", ",", "t"}], "]"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", "vg", "]"}], " ", RowBox[{"(*", RowBox[{ "\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\ \:043e\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975866526248865`*^9, 3.497586653748089*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"vgx", "[", "t", "]"}]}, { RowBox[{"vdy", "[", "t", "]"}]}, { RowBox[{"vgz", "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.497586655027291*^9, 3.497589043112815*^9, 3.497589075090644*^9, 3.497594181544717*^9, 3.497594568618856*^9, 3.497594942960267*^9, 3.497596226384675*^9, 3.4975965091408477`*^9, 3.4975983721324043`*^9, 3.4975991411813917`*^9, 3.4975993462251196`*^9, 3.497599492112464*^9, 3.4975996619201765`*^9, 3.4975999310285683`*^9, 3.4976293682828493`*^9, 3.497635854743854*^9, 3.4976368457275352`*^9, 3.497637745846019*^9, 3.497639203630399*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"vzem", "=", RowBox[{"{", RowBox[{ RowBox[{"vk", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0437\:0435\:043c\:043d\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:0432", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975866786301327`*^9, 3.497586679597334*^9}, { 3.4975949269213495`*^9, 3.497594928786456*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"vk", "[", "t", "]"}]}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975866807985363`*^9, 3.497589043134816*^9, 3.497589075120646*^9, 3.497594181571718*^9, 3.4975945686398573`*^9, 3.497594942988269*^9, 3.497596226415676*^9, 3.497596509168849*^9, 3.497598372259412*^9, 3.4975991412113934`*^9, 3.497599346255121*^9, 3.4975994921434655`*^9, 3.497599661950178*^9, 3.49759993105857*^9, 3.497629368305851*^9, 3.497635854770856*^9, 3.497636845782538*^9, 3.497637745903022*^9, 3.4976392036604013`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"vg", "=", RowBox[{"M", ".", "vzem"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:0435\:043c", " ", "\:0432\:0435\:043a\:0442\:043e\:0440", " ", "\:0437\:0435\:043c\:043d\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:043d\:0430", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:044b\:0435", " ", "\:043e\:0441\:0438", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975866854161444`*^9, 3.4975867008757715`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975867175834007`*^9, 3.497589043157818*^9, 3.4975890751476474`*^9, 3.4975941815967197`*^9, 3.4975945686618586`*^9, 3.4975949430202703`*^9, 3.497596226456679*^9, 3.4975965091988506`*^9, 3.4975983723444166`*^9, 3.4975991412423954`*^9, 3.4975993462821226`*^9, 3.4975994921714673`*^9, 3.49759966198018*^9, 3.497599931111573*^9, 3.497629368324852*^9, 3.497635854798857*^9, 3.497636845833541*^9, 3.497637745956025*^9, 3.497639203690403*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"D", "[", RowBox[{"R", ",", "t"}], "]"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", "vg", "]"}], " ", RowBox[{"(*", RowBox[{ "\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\ \:043e\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975867435886464`*^9, 3.4975867445714483`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.497586746318651*^9, 3.497589043181819*^9, 3.497589075178649*^9, 3.497594181623721*^9, 3.4975945686828594`*^9, 3.4975949430522723`*^9, 3.497596226512682*^9, 3.4975965092508535`*^9, 3.49759837239942*^9, 3.497599141272397*^9, 3.497599346314124*^9, 3.497599492203469*^9, 3.497599662123188*^9, 3.497599931141575*^9, 3.497629368343853*^9, 3.497635854829859*^9, 3.497636845865543*^9, 3.4976377459880266`*^9, 3.497639203719404*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd1", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497586747972254*^9, 3.4975867484402547`*^9}, { 3.4975867910595293`*^9, 3.497586816362774*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.49758681959198*^9, 3.4975890432028203`*^9, 3.4975890752066507`*^9, 3.497594181651723*^9, 3.4975945687048607`*^9, 3.497594943081274*^9, 3.4975962265596848`*^9, 3.4975965092798557`*^9, 3.4975983724294214`*^9, 3.4975991413264*^9, 3.497599346342126*^9, 3.4975994922324705`*^9, 3.4975996621531897`*^9, 3.4975999311725764`*^9, 3.4976293683638544`*^9, 3.497635854860861*^9, 3.4976368458945446`*^9, 3.497637746017029*^9, 3.497639203749406*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd2", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497586828187595*^9, 3.497586838343213*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.497586840324416*^9, 3.4975890432288218`*^9, 3.497589075418663*^9, 3.497594181675724*^9, 3.4975945687308626`*^9, 3.497594943290286*^9, 3.497596226605687*^9, 3.497596509465866*^9, 3.497598372616432*^9, 3.4975991414984093`*^9, 3.497599346546138*^9, 3.4975994924414825`*^9, 3.4975996623331995`*^9, 3.4975999313525867`*^9, 3.4976293683848553`*^9, 3.4976358550668726`*^9, 3.497636846075555*^9, 3.4976377462020392`*^9, 3.4976392039544177`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd3", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.49758684244602*^9, 3.4975868521492367`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.4975868530072384`*^9, 3.497589043270824*^9, 3.497589075465666*^9, 3.497594181721727*^9, 3.4975945687548637`*^9, 3.4975949433392887`*^9, 3.49759622665269*^9, 3.4975965095148687`*^9, 3.497598372665435*^9, 3.4975991415474124`*^9, 3.497599346596141*^9, 3.4975994924914856`*^9, 3.497599662385203*^9, 3.49759993140259*^9, 3.497629368407857*^9, 3.4976358551158752`*^9, 3.497636846125558*^9, 3.497637746251042*^9, 3.4976392040044208`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\ \:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497586871571271*^9, 3.497586886360097*^9}, 3.497588536719396*^9, 3.4975918746797714`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0432\:043e\:0437\:0434\:0443\:0448\:043d\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975869047369294`*^9, 3.4975869127241435`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4975869211793585`*^9, 3.497589043305826*^9, 3.497589075513668*^9, 3.497594181791731*^9, 3.497594568781865*^9, 3.4975949434552956`*^9, 3.497596226722694*^9, 3.497596509562872*^9, 3.497598372715438*^9, 3.497599141611416*^9, 3.497599346646144*^9, 3.4975994925404882`*^9, 3.4975996624352055`*^9, 3.4975999314525924`*^9, 3.497629368428858*^9, 3.497635855164878*^9, 3.4976368461745605`*^9, 3.4976377463010445`*^9, 3.497639204053424*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\ \:0435\:0439", " ", "\:0441\:0438\:043b"}], ",", " ", RowBox[{ "\:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\:0445", " ", "\:043d\:0430", " ", "\:041b\:0410", " ", "\:0432", " ", "\:043f\:043e\:043b\:0435\:0442\:0435"}], ",", " ", RowBox[{ "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.497586936732586*^9, 3.497586938198988*^9}, { 3.497598985694498*^9, 3.497599008476801*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]], "Output", CellChangeTimes->{3.4975869404453917`*^9, 3.497589043356829*^9, 3.4975890755526705`*^9, 3.4975941818447337`*^9, 3.4975945688118668`*^9, 3.4975949435302997`*^9, 3.4975962267746973`*^9, 3.4975965096018744`*^9, 3.4975983727554398`*^9, 3.497599009274847*^9, 3.4975991416494184`*^9, 3.4975993466851454`*^9, 3.4975994925784903`*^9, 3.4975996624722075`*^9, 3.497599931490595*^9, 3.497629368450859*^9, 3.49763585520188*^9, 3.4976368462125626`*^9, 3.4976377463410473`*^9, 3.497639204091426*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497586955577419*^9, 3.4975869566538205`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4975869582138233`*^9, 3.497589043423833*^9, 3.4975890756196747`*^9, 3.4975941818957367`*^9, 3.4975945688368683`*^9, 3.4975949436003036`*^9, 3.4975962268247004`*^9, 3.497596509671878*^9, 3.497598372823444*^9, 3.4975991417244225`*^9, 3.4975993467521496`*^9, 3.4975994926484947`*^9, 3.4975996625422115`*^9, 3.4975999315585985`*^9, 3.4976293684728603`*^9, 3.497635855270884*^9, 3.4976368462805667`*^9, 3.4976377464110513`*^9, 3.497639204218433*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"massa", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{"v", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", "f", "]"}], " ", RowBox[{"(*", RowBox[{ "\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:043e\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430", " ", "\:0432", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0444\:043e\:0440\:043c\:0435"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497586961287029*^9, 3.497586961645829*^9}, { 3.4975870859000473`*^9, 3.4975871127944946`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}, { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}, { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"fx"}, {"fy"}, {"fz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.4975871140424967`*^9, 3.497589043474836*^9, 3.4975890756776776`*^9, 3.4975941819517403`*^9, 3.49759456886687*^9, 3.4975949436593075`*^9, 3.4975962268777027`*^9, 3.4975965097328815`*^9, 3.4975983728854475`*^9, 3.497599141766425*^9, 3.497599346812153*^9, 3.497599492710498*^9, 3.497599662600215*^9, 3.497599931618602*^9, 3.4976293685068626`*^9, 3.4976358553278875`*^9, 3.49763684634057*^9, 3.4976377464680543`*^9, 3.4976392042994375`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udpd1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"massa", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{"v", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"f", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587158346575*^9, 3.4975872255514927`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fx"}]], "Output", CellChangeTimes->{{3.4975872167374773`*^9, 3.497587226284694*^9}, 3.4975890435198383`*^9, 3.4975890757096796`*^9, 3.4975941819997425`*^9, 3.4975945688938713`*^9, 3.497594943691309*^9, 3.497596226926706*^9, 3.497596509763883*^9, 3.4975983729174495`*^9, 3.497599141796427*^9, 3.4975993468401546`*^9, 3.4975994927404995`*^9, 3.497599662631217*^9, 3.4975999316476035`*^9, 3.497629368548865*^9, 3.497635855358889*^9, 3.4976368463705716`*^9, 3.497637746499056*^9, 3.497639204359441*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udpd2", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"massa", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{"v", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{"f", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975872367367125`*^9, 3.497587247251131*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fy"}]], "Output", CellChangeTimes->{3.4975872480311327`*^9, 3.4975890435648413`*^9, 3.497589075807685*^9, 3.497594182048745*^9, 3.497594568921873*^9, 3.4975949437633133`*^9, 3.4975962269757085`*^9, 3.4975965098378873`*^9, 3.4975983729914536`*^9, 3.497599141868431*^9, 3.4975993469111586`*^9, 3.497599492815504*^9, 3.4975996627012205`*^9, 3.4975999317176075`*^9, 3.4976293685948677`*^9, 3.497635855430893*^9, 3.497636846441576*^9, 3.4976377465720606`*^9, 3.4976392044294453`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udpd3", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"massa", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{"v", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"f", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587250839137*^9, 3.497587262242757*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fz"}]], "Output", CellChangeTimes->{3.4975872628355584`*^9, 3.497589043608844*^9, 3.497589075881689*^9, 3.4975941820977483`*^9, 3.4975945689488745`*^9, 3.4975949438133163`*^9, 3.4975962270267115`*^9, 3.49759650988789*^9, 3.4975983730404563`*^9, 3.4975991419174337`*^9, 3.4975993469591613`*^9, 3.497599492863507*^9, 3.4975996627502236`*^9, 3.4975999317656107`*^9, 3.4976293686398697`*^9, 3.4976358554778957`*^9, 3.4976368464905787`*^9, 3.497637746622063*^9, 3.4976392044794483`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\ \:0438\:044f \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\ \:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497587293021611*^9, 3.497587305735634*^9}, 3.4975885385601993`*^9, 3.497591876629883*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"proekc", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"LGamma", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"MM2", ".", "MM3"}], "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"LPsi", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0"}], "}"}]}], "+", RowBox[{ RowBox[{"Transpose", "[", "MM3", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"LTeta", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:041f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:0435\:043c", " ", "\:0443\:0433\:043b\:043e\:0432\:044b\:0435", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f"}], ",", " ", RowBox[{ "\:0442\:0430\:043d\:0433\:0430\:0436\:0430", " ", "\:0438", " ", "\:043a\:0440\:0435\:043d\:0430", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.497587314456049*^9, 3.497587333722083*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.497587335484886*^9, 3.4975890436918483`*^9, 3.4975890759426928`*^9, 3.497594182173753*^9, 3.497594568981877*^9, 3.497594943854318*^9, 3.497596227108716*^9, 3.4975965099288926`*^9, 3.4975983730824585`*^9, 3.497599141986438*^9, 3.4975993469981637`*^9, 3.4975994929025087`*^9, 3.497599662791226*^9, 3.4975999318056126`*^9, 3.497629368713874*^9, 3.4976358555188985`*^9, 3.4976368465305805`*^9, 3.4976377466620655`*^9, 3.49763920451945*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd1", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975873614433317`*^9, 3.4975873621609325`*^9}, { 3.497587394203389*^9, 3.4975874210510364`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.497587421971438*^9, 3.4975890437338505`*^9, 3.497589075997696*^9, 3.497594182221755*^9, 3.4975945690118785`*^9, 3.497594943910321*^9, 3.4975962271787205`*^9, 3.497596509985896*^9, 3.497598373140462*^9, 3.4975991420264397`*^9, 3.497599347054167*^9, 3.4975994929585123`*^9, 3.4975996628462296`*^9, 3.4975999318576155`*^9, 3.4976293687598767`*^9, 3.497635855573901*^9, 3.4976368465855837`*^9, 3.4976377467190685`*^9, 3.4976392045744534`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd2", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975874306918535`*^9, 3.4975874397710695`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.4975874406602707`*^9, 3.497589043808855*^9, 3.4975890760606995`*^9, 3.4975941822797585`*^9, 3.4975945690438805`*^9, 3.497594943973325*^9, 3.497596227232723*^9, 3.4975965100468993`*^9, 3.4975983732064657`*^9, 3.4975991421044445`*^9, 3.497599347132171*^9, 3.4975994930355167`*^9, 3.497599662921233*^9, 3.49759993193362*^9, 3.4976293688078794`*^9, 3.497635855652906*^9, 3.4976368466635885`*^9, 3.4976377467950735`*^9, 3.497639204651458*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd3", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587445402679*^9, 3.4975874553086967`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.497587455901498*^9, 3.4975890438498573`*^9, 3.497589076116703*^9, 3.4975941823157606`*^9, 3.497594569075882*^9, 3.4975949440323286`*^9, 3.497596227284726*^9, 3.4975965101049023`*^9, 3.49759837326847*^9, 3.4975991421464467`*^9, 3.4975993471741734`*^9, 3.497599493076519*^9, 3.4975996629642363`*^9, 3.4975999319746227`*^9, 3.4976293688598824`*^9, 3.4976358556979084`*^9, 3.497636846704591*^9, 3.4976377468400755`*^9, 3.49763920469346*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497587484622348*^9, 3.4975875020163784`*^9}, 3.497588540697403*^9, 3.4975918781949725`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"TI", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Ixx", ",", RowBox[{"-", "Ixy"}], ",", RowBox[{"-", "Ixz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Iyx"}], ",", "Iyy", ",", RowBox[{"-", "Iyz"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "Izx"}], ",", RowBox[{"-", "Izy"}], ",", "Izz"}], "}"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0422\:0435\:043d\:0437\:043e\:0440", " ", "\:0438\:043d\:0435\:0440\:0446\:0438\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975875047619834`*^9, 3.4975875185680075`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], RowBox[{"-", "Ixz"}]}, { RowBox[{"-", "Iyx"}], "Iyy", RowBox[{"-", "Iyz"}]}, { RowBox[{"-", "Izx"}], RowBox[{"-", "Izy"}], "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975875203464108`*^9, 3.4975890439188614`*^9, 3.4975890761867065`*^9, 3.4975941823447623`*^9, 3.4975945691098843`*^9, 3.497594944102332*^9, 3.4975962273587303`*^9, 3.4975965101739063`*^9, 3.4975983733694754`*^9, 3.4975991422294517`*^9, 3.497599347254178*^9, 3.4975994931575236`*^9, 3.497599663070242*^9, 3.4975999320516267`*^9, 3.497629368934887*^9, 3.497635855777913*^9, 3.4976368467865953`*^9, 3.4976377469220805`*^9, 3.4976392047744646`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ixz", "=", RowBox[{"Izx", "=", RowBox[{"Iyz", "=", RowBox[{"Izy", "=", "0", " ", RowBox[{"(*", RowBox[{ "\:041e\:0441\:044c", " ", "OZ", " ", "\:043f\:0435\:0440\:043f\:0435\:043d\:0434\:0438\:043a\:0443\:043b\ \:044f\:0440\:043d\:0430", " ", "\:043f\:043b\:043e\:0441\:043a\:043e\:0441\:0442\:0438", " ", "\:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438", " ", "XOY"}], "*)"}]}]}]}]}]], "Input", CellChangeTimes->{{3.4975875343864355`*^9, 3.4975875353224373`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.4975875543700705`*^9, 3.497589043950863*^9, 3.4975890762137084`*^9, 3.497594182373764*^9, 3.4975945691418858`*^9, 3.497594944130334*^9, 3.497596227414734*^9, 3.4975965102029085`*^9, 3.4975983733964767`*^9, 3.497599142255453*^9, 3.49759934728018*^9, 3.497599493183525*^9, 3.4975996631122446`*^9, 3.4975999320796285`*^9, 3.49762936898989*^9, 3.497635855806915*^9, 3.497636846813597*^9, 3.497637746974083*^9, 3.4976392048034663`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iyx", "=", "Ixy"}]], "Input", CellChangeTimes->{{3.497587556834875*^9, 3.4975875683476954`*^9}}], Cell[BoxData["Ixy"], "Output", CellChangeTimes->{3.4975875701104984`*^9, 3.4975890439708643`*^9, 3.497589076298713*^9, 3.4975941824027653`*^9, 3.4975945691748877`*^9, 3.4975949442203393`*^9, 3.4975962274677367`*^9, 3.4975965103129144`*^9, 3.4975983734914823`*^9, 3.49759914237346*^9, 3.4975993473591843`*^9, 3.49759949326353*^9, 3.497599663191249*^9, 3.4975999321776342`*^9, 3.497629369055894*^9, 3.497635855885919*^9, 3.4976368469146028`*^9, 3.497637747056088*^9, 3.4976392048814707`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "TI", "]"}]], "Input", CellChangeTimes->{{3.4975875883313303`*^9, 3.4975875892049313`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], "0"}, { RowBox[{"-", "Ixy"}], "Iyy", "0"}, {"0", "0", "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497587591045735*^9, 3.497589043990865*^9, 3.4975890763387156`*^9, 3.4975941824327674`*^9, 3.49759456921089*^9, 3.4975949442603416`*^9, 3.49759622752174*^9, 3.497596510353917*^9, 3.4975983735324845`*^9, 3.497599142402461*^9, 3.4975993473991866`*^9, 3.4975994933025317`*^9, 3.4975996632302513`*^9, 3.4975999322196364`*^9, 3.497629369107897*^9, 3.4976358559279213`*^9, 3.4976368469556055`*^9, 3.4976377470970907`*^9, 3.497639204922473*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0413\:043b\:0430\:0432\:043d\:044b\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.49758760528856*^9, 3.4975876064897623`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{"Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975876100933685`*^9, 3.4975890440158668`*^9, 3.4975890763627167`*^9, 3.497594182466769*^9, 3.4975945692438917`*^9, 3.4975949443093443`*^9, 3.4975962275797434`*^9, 3.4975965103819184`*^9, 3.497598373557486*^9, 3.497599142430463*^9, 3.4975993474241877`*^9, 3.497599493328533*^9, 3.4975996632562523`*^9, 3.4975999322446375`*^9, 3.4976293691669*^9, 3.4976358559529233`*^9, 3.497636846982607*^9, 3.497637747122092*^9, 3.497639204971476*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\ \:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:0438", " ", "\:0442\:044f\:0433\:0438", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", RowBox[{"(", RowBox[{ RowBox[{ "\:041c\:043e\:043c\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b", " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438"}], ",", " ", RowBox[{ "\:0446\:0435\:043d\:0442\:0440\:043e\:0431\:0435\:0436\:043d\:044b\ \:0445", " ", "\:0438", " ", "\:043a\:043e\:0440\:0438\:043e\:043b\:0438\:0441\:043e\:0432\:044b\ \:0445", " ", "\:0441\:0438\:043b", " ", "\:0438\:043d\:0435\:0440\:0446\:0438\:0438", " ", "\:0432\:043e\:043a\:0440\:0443\:0433", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410", " ", "\:0440\:0430\:0432\:0435\:043d", " ", "\:043d\:0443\:043b\:044e"}]}], ")"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.497587624102193*^9, 3.497587643352627*^9}, { 3.4975990178283362`*^9, 3.4975990337062445`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}]], "Output", CellChangeTimes->{3.49758764506863*^9, 3.497589044036868*^9, 3.497589076387718*^9, 3.497594182496771*^9, 3.4975945692778935`*^9, 3.4975949443353453`*^9, 3.4975962276457467`*^9, 3.49759651040692*^9, 3.4975983735824876`*^9, 3.4975990447598763`*^9, 3.4975991424544644`*^9, 3.4975993474481897`*^9, 3.497599493354535*^9, 3.497599663280254*^9, 3.497599932268639*^9, 3.4976293692299037`*^9, 3.4976358559769244`*^9, 3.497636847006608*^9, 3.4976377471460934`*^9, 3.4976392049954777`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lchudvd", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:043b\:043d\:0430\:044f", " ", "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", "\:043f\:043e", " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0433\:043b\:0430\:0432\:043d\:043e\:0433\:043e", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.497587684006298*^9, 3.4975877116963468`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.4975877150191526`*^9, 3.4975890440588694`*^9, 3.497589076438721*^9, 3.4975941825297728`*^9, 3.4975945693118954`*^9, 3.497594944363347*^9, 3.49759622770375*^9, 3.4975965104349213`*^9, 3.4975983736114893`*^9, 3.497599142484466*^9, 3.497599347476191*^9, 3.497599493380536*^9, 3.4975996633052554`*^9, 3.4975999322946405`*^9, 3.497629369288907*^9, 3.497635856002926*^9, 3.4976368470316095`*^9, 3.4976377471750946`*^9, 3.4976392050214787`*^9}] }, Open ]], Cell["\<\ \:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\:043e\:0438\:0437\:0432\ \:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\:0432\:043d\:043e\:0433\ \:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \:043c\:043e\:043c\:0435\ \:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0440\:0430\:0432\:043d\ \:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\:0443 \:043c\:043e\:043c\ \:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0436\:043d\:0438\:0445 \:0441\ \:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\ \:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.\ \>", "Text", CellChangeTimes->{{3.497587731243181*^9, 3.4975877421788006`*^9}, 3.4975885477954154`*^9, 3.497591881210145*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd1", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975877461880074`*^9, 3.4975877801180673`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mx"}]], "Output", CellChangeTimes->{3.4975877823800707`*^9, 3.49758904407987*^9, 3.4975890764687233`*^9, 3.497594182584776*^9, 3.4975945693468976`*^9, 3.497594944393349*^9, 3.4975962277887554`*^9, 3.497596510462923*^9, 3.4975983736384907`*^9, 3.4975991425124674`*^9, 3.4975993475051928`*^9, 3.4975994934095383`*^9, 3.497599663332257*^9, 3.497599932324642*^9, 3.497629369371912*^9, 3.4976358560319276`*^9, 3.497636847061611*^9, 3.4976377472030964`*^9, 3.4976392050484805`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd2", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587804064109*^9, 3.49758781606053*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "My"}]], "Output", CellChangeTimes->{3.497587817168132*^9, 3.4975890441018715`*^9, 3.4975890764967246`*^9, 3.497594182638779*^9, 3.4975945694029007`*^9, 3.497594944423351*^9, 3.4975962278487587`*^9, 3.497596510491925*^9, 3.4975983736684923`*^9, 3.4975991425414696`*^9, 3.497599347555196*^9, 3.497599493458541*^9, 3.497599663363259*^9, 3.497599932352644*^9, 3.497629369425915*^9, 3.4976358560809307`*^9, 3.4976368470886126`*^9, 3.497637747233098*^9, 3.497639205077482*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd3", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587823985344*^9, 3.4975878333609605`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mz"}]], "Output", CellChangeTimes->{3.4975878342969623`*^9, 3.497589044124873*^9, 3.4975890765637283`*^9, 3.4975941826927824`*^9, 3.497594569436903*^9, 3.497594944516356*^9, 3.497596227894761*^9, 3.4975965105769296`*^9, 3.497598373753497*^9, 3.497599142639475*^9, 3.4975993476792026`*^9, 3.4975994935935483`*^9, 3.497599663514267*^9, 3.497599932491652*^9, 3.4976293694829183`*^9, 3.4976358562329392`*^9, 3.4976368472426214`*^9, 3.4976377473881073`*^9, 3.4976392052274904`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"polnsyst", "=", RowBox[{"{", RowBox[{ "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:043b\:043d\:0430\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975879099726954`*^9, 3.4975880393437223`*^9}, { 3.4975880725717807`*^9, 3.497588096439823*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fx"}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fy"}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fz"}]}, { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mx"}]}, { RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "My"}]}, { RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mz"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497588040264124*^9, 3.4975880974694242`*^9, 3.4975890441498747`*^9, 3.49758907659373*^9, 3.4975941827287846`*^9, 3.497594569479905*^9, 3.4975949445773597`*^9, 3.4975962279297633`*^9, 3.4975965106379333`*^9, 3.497598373814501*^9, 3.4975991426854773`*^9, 3.4975993477212048`*^9, 3.49759949362455*^9, 3.497599663543269*^9, 3.4975999325226536`*^9, 3.497629369547922*^9, 3.4976358562739415`*^9, 3.497636847284624*^9, 3.497637747429109*^9, 3.497639205269493*^9}] }, Open ]], Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0438\:043c \:0437\ \:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0434\:043b\ \:044f \:0441\:0438\:043b \:0438 \:043c\:043e\:043c\:0435\:043d\:0442\:043e\ \:0432", FontSize->18, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497600305575991*^9, 3.497600306522045*^9}, { 3.49760039017583*^9, 3.4976004402396936`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Alpha", "[", "t", "]"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], "-", "Alpha0"}], ")"}], " ", RowBox[{"(*", RowBox[{ "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", "\:043f\:043e\:0434\:044a\:0451\:043c\:043d\:043e\:0439", " ", "\:0441\:0438\:043b\:044b"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.4975991577233377`*^9, 3.4975991780475*^9}, { 3.4976005136688933`*^9, 3.497600533351019*^9}, {3.4976006044280844`*^9, 3.4976006047381024`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.4975991815897026`*^9, 3.497599347755207*^9, 3.4975994936605525`*^9, 3.4975996635772705`*^9, 3.497599932556656*^9, 3.497629369622926*^9, 3.497635856306943*^9, 3.4976368473216257`*^9, 3.497637747463111*^9, 3.4976392053014946`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lyambda", "=", RowBox[{ RowBox[{"(", RowBox[{"l", "^", "2"}], ")"}], "/", "S", " ", RowBox[{"(*", RowBox[{ "\:041e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\ \:0435", " ", "\:0443\:0434\:043b\:0438\:043d\:0435\:043d\:0438\:0435", " ", "\:043a\:0440\:044b\:043b\:0430"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.4975991906462207`*^9, 3.4975992088042593`*^9}, { 3.497600663477462*^9, 3.4976006812194767`*^9}}], Cell[BoxData[ FractionBox[ SuperscriptBox["l", "2"], "S"]], "Output", CellChangeTimes->{3.497599210163337*^9, 3.4975993478202105`*^9, 3.497599493761558*^9, 3.4975996636792765`*^9, 3.497599932649661*^9, 3.4976293696609287`*^9, 3.49763585642095*^9, 3.4976368474376326`*^9, 3.4976377475781183`*^9, 3.497639205414501*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cx", "=", RowBox[{"Cx0", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "^", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"lyambda", "*", "Pi"}], ")"}], " ", RowBox[{"(*", RowBox[{ "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b", " ", "\:043b\:043e\:0431\:043e\:0432\:043e\:0433\:043e", " ", "\:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\:043b\:0435\:043d\ \:0438\:044f"}], "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.497599212898494*^9, 3.4975992231420794`*^9}, { 3.4976006112634754`*^9, 3.497600626936372*^9}, {3.497630054132078*^9, 3.4976300602564282`*^9}}], Cell[BoxData[ RowBox[{"Cx0", "+", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}]], "Output", CellChangeTimes->{3.497599225786231*^9, 3.4975993478482122`*^9, 3.4975994937895594`*^9, 3.497599663709278*^9, 3.497599932677663*^9, 3.4976293696959305`*^9, 3.497630061636507*^9, 3.4976358564529514`*^9, 3.497636847467634*^9, 3.4976377476081195`*^9, 3.4976392054445033`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"vk", "[", "t", "]"}], ")"}], "^", "2"}]}], ")"}], "/", "2", " ", RowBox[{"(*", RowBox[{ "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:043d\:0430\:043f\:043e\:0440"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.4975992278863506`*^9, 3.4975992500866203`*^9}, { 3.4976008624668436`*^9, 3.497600873638482*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.497599251246687*^9, 3.497599347878214*^9, 3.4975994938185616`*^9, 3.49759966373628*^9, 3.4975999327076645`*^9, 3.497629369730932*^9, 3.497635856480953*^9, 3.4976368474976363`*^9, 3.497637747639121*^9, 3.497639205473505*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Maer", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "l"}], ",", RowBox[{ RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "l"}], ",", RowBox[{ RowBox[{"kmz", "[", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", "t"}], "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "ba"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497599252372751*^9, 3.4975992689537*^9}, { 3.4975996393918877`*^9, 3.4975996416660175`*^9}, {3.497631684209313*^9, 3.4976316914417267`*^9}, {3.4976318215831704`*^9, 3.4976318355919714`*^9}, { 3.4976321594094925`*^9, 3.497632160889578*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], ",", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], ",", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.497599271897868*^9, 3.497599347911216*^9, 3.4975994938515635`*^9, 3.4975996637722816`*^9, 3.4975999327406664`*^9, 3.4976293697669344`*^9, 3.497631838698149*^9, 3.497632162720682*^9, 3.4976358565189557`*^9, 3.4976368475346384`*^9, 3.497637747675123*^9, 3.4976392055105066`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"faer", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Cx"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975992774281845`*^9, 3.4975992898668957`*^9}, { 3.4975996475543547`*^9, 3.497599647931376*^9}, {3.497633489397564*^9, 3.497633491926708*^9}, {3.497633566389968*^9, 3.4976335947475896`*^9}, 3.497634057808075*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.4975992915729933`*^9, 3.497599347946218*^9, 3.497599493887565*^9, 3.497599663806284*^9, 3.497599932775668*^9, 3.4976293698039365`*^9, 3.497633493186781*^9, 3.4976339618545866`*^9, 3.4976340602452145`*^9, 3.497635856553958*^9, 3.49763684756964*^9, 3.497637747712126*^9, 3.497639205545509*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"faersv", "=", RowBox[{"SM", ".", "faer"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4976337675464735`*^9, 3.4976338336632547`*^9}, { 3.497633869195287*^9, 3.497633882677058*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497633849635168*^9, 3.497634071651867*^9, 3.4976358566379623`*^9, 3.497636847652645*^9, 3.4976377477951307`*^9, 3.4976392056285133`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Gsv", "=", RowBox[{ RowBox[{"Transpose", "[", "MM", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:0438\:043b\:0430", " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4976346480768366`*^9, 3.497634648694872*^9}, { 3.497635502173688*^9, 3.497635557163833*^9}, {3.49763559067675*^9, 3.497635637043402*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}, { RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.49763555972698*^9, 3.4976355919458227`*^9, 3.4976356386574945`*^9, 3.497635856831973*^9, 3.497636847843656*^9, 3.497637748019143*^9, 3.4976392058175244`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mx", "=", RowBox[{"Maer", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.497599697097188*^9, 3.4975997207445407`*^9}, 3.4976318518559017`*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.497599726059845*^9, 3.49759993280767*^9, 3.4976293698389387`*^9, 3.4976358568689756`*^9, 3.4976368478796577`*^9, 3.497637748056145*^9, 3.497639205853526*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"My", "=", RowBox[{"Maer", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4975997313221455`*^9, 3.4975997419277525`*^9}, 3.497631854434049*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.497599743299831*^9, 3.4975999328506727`*^9, 3.49762936987294*^9, 3.497635856904978*^9, 3.4976368479406614`*^9, 3.497637748092147*^9, 3.4976392058885283`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mz", "=", RowBox[{ RowBox[{"Maer", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4975997524553547`*^9, 3.497599760986842*^9}, { 3.4976318576812353`*^9, 3.4976318603493876`*^9}, {3.497632985522744*^9, 3.497632988280902*^9}, {3.497633029105237*^9, 3.497633099148243*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]], "Output", CellChangeTimes->{3.4975997625969343`*^9, 3.4975999329026756`*^9, 3.497629369929944*^9, 3.4976331060986404`*^9, 3.4976358569419794`*^9, 3.4976368479756637`*^9, 3.497637748127149*^9, 3.4976392059235306`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fx", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.497599771100421*^9, 3.497599790104508*^9}, { 3.497635700736045*^9, 3.4976357440795245`*^9}, {3.4976357917792525`*^9, 3.4976357928873158`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.497599796051848*^9, 3.4975999329556785`*^9, 3.497629369986947*^9, 3.497635747798737*^9, 3.497635794133387*^9, 3.4976358569769816`*^9, 3.497636848010666*^9, 3.497637748161151*^9, 3.4976392059585323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fy", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Sin", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4975997993640375`*^9, 3.4975998205822515`*^9}, { 3.497635769682989*^9, 3.497635774988292*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.49759981374586*^9, 3.4975998213992977`*^9}, 3.4975999330096817`*^9, 3.49762937003495*^9, 3.4976357849998646`*^9, 3.497635857020984*^9, 3.497636848053668*^9, 3.4976377482051535`*^9, 3.497639206024536*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fz", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975998151999435`*^9, 3.4975998331629705`*^9}, { 3.4976358071431313`*^9, 3.4976358181837626`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.49759983401602*^9, 3.497599933060684*^9, 3.497629370095953*^9, 3.4976358193838315`*^9, 3.4976358570779877`*^9, 3.497636848109671*^9, 3.4976377482601566`*^9, 3.4976392060795393`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"polnsystut", "=", RowBox[{"{", RowBox[{ "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:0430\:044f", " ", "\:043f\:043e\:043b\:043d\:0430\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975998846329145`*^9, 3.4975998918743286`*^9}, { 3.4976367696301823`*^9, 3.4976368267394485`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.4975998959815636`*^9, 3.497599933250695*^9, 3.4976293701369553`*^9, 3.497635857171993*^9, {3.49763682780451*^9, 3.4976368481716747`*^9}, 3.4976377483331614`*^9, 3.4976392061515436`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vektorsost", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"R", ",", "v", ",", "w", ",", RowBox[{"{", RowBox[{ RowBox[{"LPsi", "[", "t", "]"}], ",", RowBox[{"LTeta", "[", "t", "]"}], ",", RowBox[{"LGamma", "[", "t", "]"}]}], "}"}]}], "}"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975881345350895`*^9, 3.49758818049277*^9}, { 3.497588237885271*^9, 3.4975883031401854`*^9}, {3.4975883656650953`*^9, 3.497588399392355*^9}, {3.497588932015461*^9, 3.497588942915084*^9}, { 3.4975889905478086`*^9, 3.49758903288223*^9}, {3.4975891226773663`*^9, 3.49758914041438*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"L", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}], ",", RowBox[{"dZ", "[", "t", "]"}], ",", RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{"LPsi", "[", "t", "]"}], ",", RowBox[{"LTeta", "[", "t", "]"}], ",", RowBox[{"LGamma", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.4975883050433893`*^9, 3.4975883681767*^9, 3.4975884010459576`*^9, { 3.4975890441798763`*^9, 3.497589076626732*^9}, 3.497589141088419*^9, 3.4975941827617865`*^9, 3.4975945695159073`*^9, 3.4975949446113615`*^9, 3.497596227965765*^9, 3.4975965106709347`*^9, 3.4975983738495026`*^9, 3.4975991427204795`*^9, 3.4975993480052214`*^9, 3.4975994939225674`*^9, 3.4975996638412857`*^9, 3.497599933387703*^9, 3.497629370176958*^9, 3.4976358572559977`*^9, 3.49763684825768*^9, 3.497637748418166*^9, 3.4976392062375484`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SystFK", "=", RowBox[{"Flatten", "[", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{"polnsystut", ",", RowBox[{"D", "[", RowBox[{"vektorsost", ",", "t"}], "]"}], ",", RowBox[{"Sort", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0420\:0430\:0437\:0440\:0435\:0448\:0430\:0435\:043c", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0443", " ", "\:043e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\ ", " ", "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0445"}]\ , "*)"}]}]], "Input", CellChangeTimes->{{3.4975891496489086`*^9, 3.497589294773209*^9}, { 3.4975894013893075`*^9, 3.4975894152891026`*^9}, {3.4975894973097935`*^9, 3.4975896246110744`*^9}, {3.4975999110824275`*^9, 3.4975999117124634`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}]}], "Izz"]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"wx", "[", "t", "]"}], "+", RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.497589297172346*^9, 3.4975894167851877`*^9, 3.4975895010020046`*^9, 3.4975895436354437`*^9, 3.4975896262421684`*^9, 3.4975941830488024`*^9, 3.497594569799924*^9, 3.497594944954381*^9, 3.4975962282617817`*^9, 3.497596511029956*^9, 3.4975983742275248`*^9, 3.4975991430114965`*^9, 3.4975993483412404`*^9, 3.4975994942415857`*^9, 3.497599664158304*^9, 3.4975999337567244`*^9, 3.49762937055898*^9, 3.4976358641763935`*^9, 3.4976368551200724`*^9, 3.4976377553345613`*^9, 3.49763921308794*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"systema", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SystFK", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"SystFK", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0444\:043e\:0440\:043c\:0435", " ", "\:041a\:043e\:0448\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975896281352763`*^9, 3.4975897694793606`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}]}], "Izz"]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"wx", "[", "t", "]"}], "+", RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.4975897214116116`*^9, 3.4975897704454165`*^9, 3.4975941830778046`*^9, 3.497594569846926*^9, 3.4975949449943833`*^9, 3.4975962283307858`*^9, 3.4975965110699577`*^9, 3.4975983742665267`*^9, 3.4975991430494986`*^9, 3.497599348379243*^9, 3.4975994942805877`*^9, 3.4975996642273083`*^9, 3.4975999337997265`*^9, 3.4976293705899816`*^9, 3.4976358642573977`*^9, 3.497636855203077*^9, 3.497637755429567*^9, 3.497639213181946*^9}] }, Open ]], Cell[TextData[{ StyleBox["\:041f\:0440\:0435\:0434\:0441\:0442\:0430\:0432\:0438\:043c \ \:043d\:0435\:043b\:0438\:043d\:0435\:0439\:043d\:0443\:044e \:043d\:0435\ \:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\:043d\:0443\:044e \ \:043c\:043e\:0434\:0435\:043b\:044c \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:044f \:041b\:0410 \:0432 \:043c\:0430\:0442\:0440\:0438\:0447\:043d\ \:043e\:043c \:0432\:0438\:0434\:0435 ", FontSize->18, FontWeight->"Bold"], Cell[BoxData[ FormBox[ OverscriptBox["X", "\[CenterDot]"], TraditionalForm]], FormatType->"TraditionalForm", FontSize->18, FontWeight->"Bold"], StyleBox["[t]=Ax[t]+Bu[t]", FontSize->18, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.49763697642101*^9, 3.497637034778348*^9}, { 3.497637085618256*^9, 3.4976370877733793`*^9}, {3.4976372993804827`*^9, 3.497637321028721*^9}, {3.4976373548366547`*^9, 3.4976373725756693`*^9}, { 3.497637404918519*^9, 3.4976374494570665`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MatrA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"systema", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"vektorsost", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\"\<\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e\>\"", " ", "\:041b\:0410"}], " ", "-", " ", RowBox[{"\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "A"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.497590262955586*^9, 3.497590407829872*^9}, { 3.4975984832567606`*^9, 3.4975984925212903`*^9}, {3.49763747644461*^9, 3.4976375171519384`*^9}, {3.4976375574552436`*^9, 3.4976375690639076`*^9}, { 3.49763902724131*^9, 3.497639030691508*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", "0", RowBox[{"wz", "[", "t", "]"}], RowBox[{"-", RowBox[{"wy", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], RowBox[{"vy", "[", "t", "]"}], "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}], RowBox[{"vz", "[", "t", "]"}], "0", RowBox[{"-", RowBox[{"vx", "[", "t", "]"}]}], "0", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}], "0", RowBox[{"wy", "[", "t", "]"}], RowBox[{"-", RowBox[{"wx", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], "-", SuperscriptBox["Ixy", "2"], "+", RowBox[{"Ixx", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}]}], "Izz"], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{"ba", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "Izz"}]], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "0", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], "0", "0", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}, {"0", "0", "0", "0", "0", "0", "1", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0", RowBox[{ SuperscriptBox[ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.4975904093159575`*^9, 3.4975941831348076`*^9, 3.4975945699179306`*^9, 3.497594945076388*^9, 3.4975962284057903`*^9, 3.4975965111519623`*^9, 3.4975983743525314`*^9, {3.4975984849348564`*^9, 3.4975984939043694`*^9}, 3.497599143127503*^9, 3.497599348458247*^9, 3.4975994943605924`*^9, 3.4975996643023124`*^9, 3.497599933876731*^9, 3.497629370653985*^9, 3.4976358643504033`*^9, 3.4976368552970824`*^9, 3.4976377555835757`*^9, 3.497639032003583*^9, 3.497639213319954*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U", "=", RowBox[{"{", RowBox[{ RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f", " ", RowBox[{"U", "[", "t", "]"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975908285409355`*^9, 3.4975908738595276`*^9}, { 3.497637524943384*^9, 3.4976375370880785`*^9}, {3.497637575964302*^9, 3.497637579740518*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.49759087598765*^9, 3.4975941831898108`*^9, 3.497594569986934*^9, 3.497594945246398*^9, 3.4975962284777946`*^9, 3.497596511355974*^9, 3.497598374568544*^9, 3.4975991433385153`*^9, 3.4975993486762595`*^9, 3.497599494478599*^9, 3.4975996643993177`*^9, 3.4975999339447355`*^9, 3.4976293706919875`*^9, 3.497635864433408*^9, 3.497636855374087*^9, 3.4976377556675806`*^9, 3.497639213410959*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MatrB", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"systema", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"U", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0447\:0438", " ", "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f"}], " ", "-", " ", "B"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497590878917817*^9, 3.4975909367231236`*^9}, { 3.497598346758953*^9, 3.497598353916363*^9}, {3.4976375848708115`*^9, 3.497637610292266*^9}, {3.49763905031463*^9, 3.497639059193138*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"2", " ", "s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]]}], FractionBox[ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "massa"]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", FractionBox[ RowBox[{"2", " ", "s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]], FractionBox[ RowBox[{ RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "massa"]}, { RowBox[{"-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "massa", " ", "\[Pi]"}]]}], "0", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]], "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0"}, { FractionBox[ RowBox[{"ba", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", "Izz"}]], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "Izz"]}]}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.497590939147262*^9, 3.497590957830331*^9}, 3.497594183212812*^9, 3.4975945700169363`*^9, 3.4975949452794*^9, 3.4975962285107965`*^9, 3.4975965114139776`*^9, 3.4975983746135464`*^9, 3.497599143404519*^9, 3.4975993487302628`*^9, 3.4975994945096006`*^9, 3.49759966442832*^9, 3.497599933978737*^9, 3.4976293707289896`*^9, 3.4976358645034122`*^9, 3.497636855412089*^9, 3.497637755703583*^9, 3.4976390629503527`*^9, 3.497639213457961*^9}] }, Open ]] }, WindowSize->{1350, 633}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 3679, 56, 283, "Text"], Cell[CellGroupData[{ Cell[4249, 80, 1128, 30, 31, "Input"], Cell[5380, 112, 1409, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6826, 151, 1002, 28, 31, "Input"], Cell[7831, 181, 1406, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9274, 220, 798, 16, 31, "Input"], Cell[10075, 238, 2099, 55, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12211, 298, 1027, 24, 31, "Input"], Cell[13241, 324, 1097, 25, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14375, 354, 1028, 28, 31, "Input"], Cell[15406, 384, 1399, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16842, 423, 1018, 27, 31, "Input"], Cell[17863, 452, 1402, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19302, 491, 1017, 28, 31, "Input"], Cell[20322, 521, 1406, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21765, 560, 794, 16, 31, "Input"], Cell[22562, 578, 3776, 101, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26375, 684, 1010, 27, 31, "Input"], Cell[27388, 713, 1397, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28822, 752, 1046, 29, 31, "Input"], Cell[29871, 783, 1403, 34, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31311, 822, 825, 17, 31, "Input"], Cell[32139, 841, 2120, 55, 71, "Output"] }, Open ]], Cell[34274, 899, 481, 8, 55, "Text"], Cell[CellGroupData[{ Cell[34780, 911, 1149, 30, 31, "Input"], Cell[35932, 943, 646, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36615, 960, 795, 18, 31, "Input"], Cell[37413, 980, 645, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38095, 997, 788, 15, 31, "Input"], Cell[38886, 1014, 2223, 60, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41146, 1079, 742, 18, 31, "Input"], Cell[41891, 1099, 1139, 28, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43067, 1132, 672, 15, 31, "Input"], Cell[43742, 1149, 1723, 44, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45502, 1198, 790, 15, 31, "Input"], Cell[46295, 1215, 2731, 74, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49063, 1294, 369, 10, 31, "Input"], Cell[49435, 1306, 813, 17, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50285, 1328, 316, 9, 31, "Input"], Cell[50604, 1339, 740, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51381, 1359, 317, 9, 31, "Input"], Cell[51701, 1370, 830, 18, 30, "Output"] }, Open ]], Cell[52546, 1391, 461, 7, 55, "Text"], Cell[CellGroupData[{ Cell[53032, 1402, 724, 17, 31, "Input"], Cell[53759, 1421, 643, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54439, 1438, 903, 20, 31, "Input"], Cell[55345, 1460, 591, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55973, 1474, 710, 17, 31, "Input"], Cell[56686, 1493, 657, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57380, 1510, 978, 21, 31, "Input"], Cell[58361, 1533, 3152, 85, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61550, 1623, 501, 15, 31, "Input"], Cell[62054, 1640, 936, 21, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63027, 1666, 501, 15, 31, "Input"], Cell[63531, 1683, 933, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64501, 1710, 499, 15, 31, "Input"], Cell[65003, 1727, 913, 21, 30, "Output"] }, Open ]], Cell[65931, 1751, 461, 7, 55, "Text"], Cell[CellGroupData[{ Cell[66417, 1762, 1523, 40, 52, "Input"], Cell[67943, 1804, 1892, 50, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69872, 1859, 317, 8, 31, "Input"], Cell[70192, 1869, 873, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71102, 1893, 266, 7, 31, "Input"], Cell[71371, 1902, 1044, 24, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72452, 1931, 264, 7, 31, "Input"], Cell[72719, 1940, 1065, 25, 30, "Output"] }, Open ]], Cell[73799, 1968, 451, 7, 55, "Text"], Cell[CellGroupData[{ Cell[74275, 1979, 733, 22, 31, "Input"], Cell[75011, 2003, 1251, 31, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76299, 2039, 559, 13, 31, "Input"], Cell[76861, 2054, 498, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77396, 2066, 121, 2, 31, "Input"], Cell[77520, 2070, 508, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78065, 2082, 134, 2, 31, "Input"], Cell[78202, 2086, 1147, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79386, 2118, 678, 15, 31, "Input"], Cell[80067, 2135, 1530, 40, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81634, 2180, 1565, 31, 52, "Input"], Cell[83202, 2213, 584, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83823, 2227, 822, 18, 31, "Input"], Cell[84648, 2247, 2355, 63, 55, "Output"] }, Open ]], Cell[87018, 2313, 792, 12, 29, "Text"], Cell[CellGroupData[{ Cell[87835, 2329, 267, 7, 31, "Input"], Cell[88105, 2338, 1129, 27, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89271, 2370, 262, 7, 31, "Input"], Cell[89536, 2379, 1124, 27, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90697, 2411, 265, 7, 31, "Input"], Cell[90965, 2420, 1098, 27, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92100, 2452, 746, 17, 31, "Input"], Cell[92849, 2471, 7714, 212, 209, "Output"] }, Open ]], Cell[100578, 2686, 397, 7, 34, "Text"], Cell[CellGroupData[{ Cell[101000, 2697, 1145, 28, 52, "Input"], Cell[102148, 2727, 831, 21, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103016, 2753, 491, 11, 31, "Input"], Cell[103510, 2766, 330, 6, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103877, 2777, 974, 24, 31, "Input"], Cell[104854, 2803, 1076, 28, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105967, 2836, 557, 16, 31, "Input"], Cell[106527, 2854, 447, 10, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107011, 2869, 2028, 50, 52, "Input"], Cell[109042, 2921, 2666, 69, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[111745, 2995, 1273, 30, 31, "Input"], Cell[113021, 3027, 2610, 72, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115668, 3104, 642, 14, 31, "Input"], Cell[116313, 3120, 8797, 231, 125, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125147, 3356, 761, 19, 31, "Input"], Cell[125911, 3377, 1354, 38, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127302, 3420, 201, 5, 31, "Input"], Cell[127506, 3427, 714, 17, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128257, 3449, 201, 5, 31, "Input"], Cell[128461, 3456, 714, 17, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129212, 3478, 580, 14, 31, "Input"], Cell[129795, 3494, 1691, 46, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131523, 3545, 591, 16, 31, "Input"], Cell[132117, 3563, 3129, 90, 128, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135283, 3658, 540, 15, 31, "Input"], Cell[135826, 3675, 3229, 93, 128, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139092, 3773, 311, 8, 31, "Input"], Cell[139406, 3783, 1981, 56, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[141424, 3844, 824, 18, 52, "Input"], Cell[142251, 3864, 19669, 514, 290, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161957, 4383, 862, 19, 31, "Input"], Cell[162822, 4404, 1102, 23, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163961, 4432, 931, 21, 31, "Input"], Cell[164895, 4455, 22038, 548, 368, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[186970, 5008, 872, 22, 31, "Input"], Cell[187845, 5032, 21981, 547, 368, "Output"] }, Open ]], Cell[209841, 5582, 974, 22, 40, "Text"], Cell[CellGroupData[{ Cell[210840, 5608, 1186, 29, 31, "Input"], Cell[212029, 5639, 33364, 871, 372, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[245430, 6515, 618, 15, 31, "Input"], Cell[246051, 6532, 643, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[246731, 6549, 1016, 26, 31, "Input"], Cell[247750, 6577, 23726, 626, 332, "Output"] }, Open ]] } ] *) (* End of internal cache information *)